Arrowhead Perimeter

(Move the blue points)

C = (4.926514330009917, 2.9614462060652276)
B = (4.0161922095532345, 2.3523315412682466)
A = (3.471646036490329, 1.7771928865725946)
c = Circle(A, B)
f, g = Tangent(C, c)
E = Point(g)
p = Segment(C, E)
j, k = Tangent(E, c)
D = Point(f)
l = Segment(C, D)
h, i = Tangent(D, c)
F = Intersect(h, k)
n = Segment(D, F)
red: n + p
redr: round(red, 3)
m = Segment(F, E)
blue: l + m
bluer: round(blue, 3)
area: (3 + (2 * sqrt(3))) / 6
G = Point(k)
q = Segment(E, G)
H = Point(h)
r = Segment(D, H)
text1: "" + (LaTeX[l]) + " + " + (LaTeX[m]) + " =" + (LaTeX[blue]) + ""
text3: "" + (LaTeX[n]) + "+" + (LaTeX[p]) + "=" + (LaTeX[red]) + ""
perim: bluer + redr
text2: "Perimeter = " + (LaTeX[perim]) + ""